home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / comm / cnet / cnet_backup.lha / cnetamigabackup / CNetBackUp_UPDATE < prev    next >
Text File  |  1997-04-06  |  3KB  |  69 lines
  1. /**************************************************************************\
  2.     $VER: CNet BackUp UPDATE, v3.50 (6-Apr-97) by Dotoran of Frontiers!
  3. \**************************************************************************/
  4. options results;signal on SYNTAX;signal on ERROR;signal on IOERR
  5. a=sourceline(2);parse var a . ", "ver" ("vdate")" .;a=random(,,time("s"))
  6. tr=transmit;se=sendstring;gc=getchar;gu=getuser;gs=getscratch;mg=maygetchar
  7. a="rexxsupport.library";if ~show("l",a) then if ~addlib(a,0,-30) then exit
  8. parse source . . fp .;df=left(fp,max(lastpos('/',fp),lastpos(':',fp)))
  9.  
  10. tr "f1CNet Amiga BackUp, UPDATE, v3.50n1"
  11.  
  12. se "   This update script should be run if using a version of CNet Amiga "
  13. se "BackUp that is EARLIER than 3.50. It will add the four NEW values to "
  14. se "each of your designated BackUp Sets. Once upgraded, use the `E' command "
  15. se "from within the CNB command to further modify these values.n2Press any "
  16. tr "key to attempt this update...g1"
  17.  
  18. if ~exists(df"CNetBackUp.CFG") then do
  19.   se "n1   I was NOT able to find the `CNetBackUp.CFG' file. I looked in "
  20.   se "the `"df"' path for it. This update script should be placed INSIDE "
  21.   tr "your `CNetAmigaBackUp/' directory before being run!";exit;end
  22.  
  23. call open(f1,df"CNetBackUp.CFG","r")
  24.   sets=readln(f1);do i=1 to sets;set.i=readln(f1);end i;drives=readln(f1)
  25. call close(f1)
  26.  
  27. parse var set.1 j"|"j"|"j"|"j"|"j"|"j"|"j"|"j"|"j"|"j
  28.  
  29. if j~="x" then do
  30.   se "n1   It looks like you have already run this update script. If there "
  31.   se "was a problem the first time you ran this script, DELETE your "
  32.   se "`CNetBackUp.CFG' file, then use the `A' command to ADD your BackUp "
  33.   tr "Sets again!";signal UP351;end
  34.  
  35. call open(f1,df"CNetBackUp.CFG","w")
  36.   call writeln(f1,sets)
  37.   do i=1 to sets
  38.     parse var set.i set"|x" ; set=set"|0|1|0|1|x" ; call writeln(f1,set)
  39.   end i
  40.   call writeln(f1,drives)
  41. call close(f1)
  42.  
  43. se "n1   Update completed sucessfully. Check the HISTORY file for a list "
  44. se "of changes this version. Also check the ** NOTES ON USING PATHS ** "
  45. se "section of the README file for important info on specifying complete "
  46. tr "paths within your BackUp Sets!"
  47.  
  48. UP351:
  49. se "n1   You should now run the `CNetBackUp_UPDATE351' file to complete "
  50. se "your upgrade process. Do you wish to launch it now? [Yes]: ";gc;a=result
  51. if a="N" then do;se "No.n2   Alright, I won't run it now, however be "
  52.   se "advised that if you have a BackUp set using BAK as the extension, "
  53.   se "this WILL cause problems when you use the CNet Amiga BackUp program, "
  54.   tr "or it's AMaint module!";exit;end
  55.  
  56. tr "Yes!#0"df"CNetBackUp_UPDATE351}"
  57.  
  58. exit
  59. CHECK:;if ARG() & ARG(1)~="###PANIC" then return ARG(1)
  60.   getcarrier;if result="TRUE" then if ARG() then return ARG(1);else return
  61.   logentry "Lost Carrier!!";bufferflush;exit
  62. SYNTAX:;ERROR:;IOERR:;e1="n1 Error: "rc" ("errortext(rc)")"
  63.   e2="  Line: "left(sigl,4)"File:";c="`"fp", "ver"'";e2=e2" "c;tr e1;tr e2
  64.   logentry e1;logentry e2;e=strip(translate(sourceline(sigl),"\{",""))
  65.   do while e~="";e3="Source: "left(e,37);tr e3;logentry e3;e=substr(e,38);end
  66.   bufferflush
  67. /**************************************************************************\
  68. \****************************************** Frontiers BBS (716)/823-9892 **/
  69.